home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / card_3082.txt < prev    next >
Text File  |  1989-04-11  |  8KB  |  372 lines
  1. -- card: 3082 from stack: in
  2. -- bmap block id: 3341
  3. -- flags: 0000
  4. -- background id: 2640
  5. -- name: downtown
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global boxText
  9.   put boxText into bg fld 1
  10. end openCard
  11.  
  12. on closeCard
  13.   hide cd fld 1
  14. end closeCard
  15.  
  16. on flasher
  17.   repeat 8 times
  18.     set hilite of cd btn 15 to true
  19.     wait(5)
  20.     set highlight of cd btn 15 to false
  21.     wait(5)
  22.   end repeat
  23. end flasher
  24.  
  25.  
  26.  
  27. -- part 2 (field)
  28. -- low flags: 81
  29. -- high flags: 2004
  30. -- rect: left=142 top=99 right=223 bottom=366
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: 
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   hide me
  42.   put empty into me
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=49 top=71 right=83 bottom=61
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: 26Foggy Bottom-GWU
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   global station,stationNum,done,startEnd
  62.   put 26 into foo
  63.   put the short name of me into station
  64.   SetupTrip foo
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=143 top=64 right=76 bottom=155
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 23Farragut West
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   global station,stationNum,done,startEnd
  84.   put 23 into foo
  85.   put the short name of me into station
  86.   SetupTrip foo
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part 5 (button)
  92. -- low flags: 00
  93. -- high flags: 0000
  94. -- rect: left=208 top=64 right=76 bottom=220
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: 36McPherson Square
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   global station,stationNum,done,startEnd
  106.   put 36 into foo
  107.   put the short name of me into station
  108.   SetupTrip foo
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 6 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=251 top=96 right=108 bottom=263
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 38Metro Center
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global station,stationNum,done,startEnd
  128.   put 38 into foo
  129.   put the short name of me into station
  130.   SetupTrip foo
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part 7 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=251 top=152 right=164 bottom=263
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: 25Federal Triangle
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   global station,stationNum,done,startEnd
  150.   put 25 into foo
  151.   put the short name of me into station
  152.   SetupTrip foo
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 8 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=251 top=219 right=231 bottom=263
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: 50Smithsonian
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   global station,stationNum,done,startEnd
  172.   put 50 into foo
  173.   put the short name of me into station
  174.   SetupTrip foo
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 9 (button)
  180. -- low flags: 00
  181. -- high flags: 0000
  182. -- rect: left=311 top=259 right=271 bottom=323
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: 35L'Enfant Plaza
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   global station,stationNum,done,startEnd
  194.   put 35 into foo
  195.   put the short name of me into station
  196.   SetupTrip foo
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 10 (button)
  202. -- low flags: 00
  203. -- high flags: 0000
  204. -- rect: left=368 top=259 right=271 bottom=380
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 1
  208. -- font id: 0
  209. -- text size: 12
  210. -- style flags: 0
  211. -- line height: 16
  212. -- part name: 24Federal Center SW
  213. ----- HyperTalk script -----
  214. on mouseUp
  215.   global station,stationNum,done,startEnd
  216.   put 24 into foo
  217.   put the short name of me into station
  218.   SetupTrip foo
  219. end mouseUp
  220.  
  221.  
  222.  
  223. -- part 11 (button)
  224. -- low flags: 00
  225. -- high flags: 0000
  226. -- rect: left=311 top=163 right=175 bottom=323
  227. -- title width / last selected line: 0
  228. -- icon id / first selected line: 0 / 0
  229. -- text alignment: 1
  230. -- font id: 0
  231. -- text size: 12
  232. -- style flags: 0
  233. -- line height: 16
  234. -- part name: 2Archives
  235. ----- HyperTalk script -----
  236. on mouseUp
  237.   global station,stationNum,done,startEnd
  238.   put 2 into foo
  239.   put the short name of me into station
  240.   SetupTrip foo
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 12 (button)
  246. -- low flags: 00
  247. -- high flags: 0000
  248. -- rect: left=311 top=96 right=108 bottom=323
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: 29Gallery Place
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   global station,stationNum,done,startEnd
  260.   put 29 into foo
  261.   put the short name of me into station
  262.   SetupTrip foo
  263. end mouseUp
  264.  
  265.  
  266.  
  267. -- part 13 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=149 top=43 right=55 bottom=161
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: 22Farragut North
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   global station,stationNum,done,startEnd
  282.   put 22 into foo
  283.   put the short name of me into station
  284.   SetupTrip foo
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 14 (button)
  290. -- low flags: 00
  291. -- high flags: 0000
  292. -- rect: left=363 top=122 right=134 bottom=375
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: 32Judiciary Square
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   global station,stationNum,done,startEnd
  304.   put 32 into foo
  305.   put the short name of me into station
  306.   SetupTrip foo
  307. end mouseUp
  308.  
  309.  
  310.  
  311. -- part 15 (button)
  312. -- low flags: 00
  313. -- high flags: 0000
  314. -- rect: left=457 top=106 right=118 bottom=469
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 0
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: 55Union Station
  323. ----- HyperTalk script -----
  324. on mouseUp
  325.   global station,stationNum,done,startEnd
  326.   put 55 into foo
  327.   put the short name of me into station
  328.   SetupTrip foo
  329. end mouseUp
  330.  
  331.  
  332.  
  333. -- part 18 (button)
  334. -- low flags: 00
  335. -- high flags: 0000
  336. -- rect: left=263 top=66 right=87 bottom=307
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: 
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   Answer "See you at MacWorld Expo Washington!" with "Yeah!"
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 28 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=454 top=259 right=271 bottom=466
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: 10Capitol South
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   global station,stationNum,done,startEnd
  367.   put 10 into foo
  368.   put the short name of me into station
  369.   SetupTrip foo
  370. end mouseUp
  371.  
  372.